CAABinaryStar_Calculate <-
function(t, P, T, e, a, i, omega, w){
.Call("CAABinaryStar_Calculate", t, P, T, e, a, i, omega, w)
}
